PROGRAM p;
const m = 'a';
 m2 = "holaquetal";
label m2;
type persona = Record
	cara:integer;
	ojo:int;
	end;
label kk;
var r : bool;
    buba: integer;
    arr : array[1..30] of array [1..2] of set of int;

procedure t(VAR i:integer;t,o:integer);
	begin
	 i:='a';
	 i:= "String de prueba";
	 i:= k and r;
	 if exp1 then exp2;
	 case expresion of 
	  val1 :instruccion;
	  val2 : instruccion;
	 end;
	end;
begin
	hl(m);
	if exp5 then 
		sentencia:=5 
	else if exp then
		 instruccion
	     else 
		   if terminar then  
			final;
	readln("pulsa tecla");
	write(54,'e',5+9);
END.